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1 . Die Sprache LISP 

Die Sprache LISP ist primSr fur die Symbolmanipulation entworfen. Sie wurde fur 
symbolische Berechnungen in verschiedenen Gebieten der kunstiichen Intelligenz 
eingesetzt, u.a. fur Differential- und Integralrechnung, Schaltkreistheorie. Mathemati- 
sche Logik, Spiele, etc.. 

LISP ist eine formale mathematische Sprache. Daher ist es m6glich, eine genaue und 
vollst£indige Beschreibung zu geben. Das ist der Sinn des ersten Abschnitts dieses 
Handbuchs. Andere Abschnitte werden M6glichkeiten zum vorteilhaften Einsatz von 
LISP und die Erweiterungen, die die Benutzung erieichtern, beschreit)en. 

LISP unterscheidet sich von den meisten Programmiersprachen in drei Punkten. 

Der erste Punkt liegt in der Natur der Daten. In der Sprache LISP hatDen alle Daten 
die Form symbolischer Ausdrucke, die wir verkurzend LISP - Ausdrucke nennen wer- 
den. LISP - Ausdrucke haben keine LSngenbegrenzung und eine verzweigte Baum- 
struktur, so daB Unterausdrucke leicht isoiiert werden k6nnen. In LISP wird der meiste 
Speicherplatz fiir das Abspeichern der LISP - Ausdrucke in Form von Listenstruktu- 
ren gebraucht. 

Der zweite wichtige Teil der Sprache LISP ist die Quellsprache, die festlegt, wie die 
LISP - Ausdrucke verarbeitet werden sollen. 

Drittens kann LISP als LISP - Ausdrucke geschriebene Programme interpretieren und 
ausfuhren. Deshalb kann man die Sprache analog zu Assemblersprachen und im 
Gegensatz zu den meisten anderen hdheren Programmiersprachen einsetzen, um 
Programme zu generieren, die gleich ausgefuhrt werden sollen. 
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1.1 Symbolische Ausdrucke 



Ein elementarer Ausdruck ist ein Atom. 

Definition: Ein Atom ist eine Zeichenkette bestehend aus GroBbuchstaben und 
Ziffern. 

Beispiele: A 

APFEL 
TEIL2 

EXTRALANGEZEICHENKETTEAUSBUCHSTABEN 
A4B66XYZ2 

Diese Symbole werden atomar genannt, weil sie als Ganzes aufgefaBt werden, das 
durch die LISP - Funktionen nicht weiter geteilt werden kann. A, B, und AB haben 
keinerlei Beziehung zueinander, auBer der, daB sie alle verschiedene Atome sind. 

Alle LISP - Ausdrucke werden aus Atomen und den Satzzeichen "(", und 
aufgebaut. Die grundlegende Operation zum Aufbau von LISP - Ausdrucken ist die, 
zwei LISP - Ausdrucke zusammenzufassen, um einen gr6Beren herzustellen. Aus den 
zwei Atomen A und B kann man so den LISP - Ausdruck (A.B) bilden. 

Definition: Ein LISP - Ausdruck ist entweder ein Atom, Oder aus folgenden Elemen- 
ten in dieser Reihenfolge aufgebaut: Eine Offnende Klammer, ein 
LISP- Ausdruck, ein Punkt, ein LISP -Ausdruck, eine schlieBende 
Klammer. Zwischen den Bestandteilen eines nichtatomaren LISP -Aus- 
druck k6nnen beliebig viele Leerzeichen eingestreut sein. 

Diese Definition ist rekursiv. 

Beispiele: ATOM 

(A . B) 

(A . (B . O) 

((Al . A2) . B) 

((U . V) . (X . Y)) 

((U . V) . (X . (Y . Z))) 

Um die Struktur solcher Ausdrucke zu verdeutiichen, wird in diesem Handbuch oft 
eine graphische Darstellung gewdhlt. In dieser Darstellung sind die Atome weiterhin 
Zeichenketten, statt der Paare steht jetzt aber ein Kasten 
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+ + + 

I o I o I 
+ + + 

von dem zwei Zeiger ausgehen, die auf die graphische Darstellung des ersten bzw. 
zweiten Elements des Paars zeigen. 

Beispiele: (A . B) + + + 

I o I o I 
+ — — + — + — + 

I I 

V V 
A B 

(A . (B . O) + + + 

I o I o I 
+ — + — + — + — + 

I I 

V V 

A + + + 

I o I o I 
+ — + — + — + — + 

I I 

V V 
B C 

((U . V) . (X . (Y . Z))) + + + 

I o I o I 

+ + + + + 

I I 

V V 

+ + + + + + 

I 0 I 0 I I o I 0 I 

+ — + — + — -»- — + + — + — + — + — + 

II II 

V V V V 

U V X + + + 

I 0 I o I 

+ + + + + 

I I 

V V 

Y Z 
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1.2 Elementare Funktionen 



Wir werden einige elementare Funktionen auf LISP - Ausdrucken einfuhren. Urn die 
Funktionen von den LISP - Ausdrucken zu unterscheiden, werden wir Funktionsnamen 
mit Klein- statt GroBbuchstaben schreiben. AuBerdem steht der Funktionsname 
gefolgt von den Argumenten, auf die die Funktion angewendet werden soli, in Klam- 
mern eingeschtossen in einer Liste. Dabei sind die Argumente durch Blanks vonein- 
ander getrennt. 

Die erste Funktion, die wir einfuhren, heiSt "cons". Sie hat zwei Argumente und wird 
dafur benutzt, LISP - Ausdrucke aus kleineren LISP - Ausdrucken aufzubauen. 

Funktionsauf ruf : Ergebnis: 

Beispiele: (cons A B) = (A . B) 

(cons (A . B) C) = ((A . B) . C) 

(cons (cons A B) C) = ((A . B) . C) 

Die Beispiele zeigen Funktionsaufrufe. Ein Funktionsaufruf ist eine Liste beginnend 
mit einem Funktionsnamen, gefolgt von Argumenten. Alle Funktionsaufrufe hat)en ein 
Ergebnis, das im Fall von LISP - Funktionen immer ein LISP - Ausdruck ist. 

In diesen Beispielen kommt nur die Funktion "cons" vor. Das letzte Beispiel ist ein 
Fall von Funktionsverkettung, das heiSt, als Argument steht ein Funktionsaufruf. Um 
das Ergebnis eines Funktionsaufrufs zu berechnen, das Funktionsaufrufe als Argu- 
mente enthait, muB man statt dieser Argumente die Ergebnisse dieser Funktionsaufru- 
fe einsetzen, so daB man den £iuBeren Funktionsaufruf in einen Aufruf ohne Funk- 
tionsaufrufe als Argumente umwandelt. 

Beispiel: (cons (cons A B) C) = (cons (A . B) C) = ((A . B) . C) 

Es ist mOglich, durch Verkettung der Funktion "cons" jeden LISP - Ausdruck aus 
seinen atomaren Komponenten aufzubauen. 

Die folgenden beiden Funktionen tun das genaue Gegenteil von "cons": sie liefern 
die Unterausdrucke eines gegebenen LISP - Ausdrucks. 

Die Funktion "head" hat ein Argument. Ihr Wert ist der erste Unterausdruck des 
zusammengesetzen Arguments. Der "head" eines Atoms ist nicht definiert. 
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Beispiele: (head (A . B)) = A 

(head (A . (Bl . B2))) = A 

(head ((Al . A2) . B)) = (Al . A2) 

(head A) ist nicht definiert 



Die Funktion "tail" hat ebenfalls ein Argument, und sie liefert das Argument bis auf 
dessen "head". 



Beispiele: (tail (A . B)) = B 

(tail (A . (Bl . B2))) = (Bl . B2) 

(tail ((Al . A2) . B)) = B 

(tail A) ist nicht definiert 

(head (tail (A . (Bl . B2)))) = Bl 

(head (tail (A . B))) ist nicht definiert 

(head (cons A B)) = A 



Es ist bei jedem LISP - Ausdruck mCglich, durch eine geeignete Verkettung von 
"head" und "tail" zu jedem Atom im Ausdruck zu gelangen. 

Wenn "x" und "y" irgendwelche LISP - Ausdrucke reprSsentieren, gelten die folgen- 
den Gleichungen immer: 

(head (cons x y)) = x 
(tail (cons x y)) = y 

AuBerdem gilt die folgende Gleichung fur jeden nichtatomaren LISP - Ausdruck "z": 

(cons (head z) (tail z)) = z 



Die Symbole "x", "y" und "z", die wir in diesen Gleichungen benutzt haben, nennt 
man Variablen. In LISP werden Variable t)enutzt, um LISP - Ausdrucke zu reprasentie- 
ren, und zwar reprdsentiert eine Variable in einer Gleichung immer denselben 
LISP - Ausdruck. Variablennamen werden wie Funktionsnamen gebildet, d.h. sie 
kOnnen Kleinbuchstaben und Ziffern enthalten. 

Eine Funktion, deren Wert "wahr" Oder "falsch" sein kann, wird PrSdikat genannt. In 
LISP werden die Werte "wahr" und "falsch" durch die Atome "T" (true) und "F" 
(false) vertreten. Ein LISP - PrSdikat ist also eine Funktion, deren Wert entweder "T" 
Oder "F" ist. 

Das Pradikat "eq" ist ein Gleichheitstest fur Atome. Es ist bei nicht atomaren Argu- 
menten nicht definiert. 
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Beispiele: (eq A A) 

(eq A B) 

(eq A (A . B)) 

(eq (A . B) B) 

(eq (A . B) (A 



= T 
= F 

ist nicht definiert 
ist nicht definiert 
B)) ist nicht definiert 



Das Pradlkat "atom" hat das Ergebnis ("liefert") "T", wenn sein Argument atomar ist, 
und "F", wenn sein Argument zusammengesetzt ist. 



Beispiele: (atom EXTRALANGEZEICHENKETTE) = T 
(atom (U .V)) = F 

(atom (head (U . V))) = T 
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1.3 Listen - Notation 



Alle LISP - Ausdrucke, die wir bisher gesehen haben, waren in Punkt - Notation 
geschrieben. Normalerweise is! es allerdings einfacher, statt der vielen Punkte und 
Klammern Listen von LISP - Ausdrucken zu schreiben, etwa in der Art (ABC XYZ). 

LISP bietet eine solche Alternative zur Punkt - Notation an: 

Definition: Die Liste (a1 a2 ... an) ist eiquivalent zum LISP - Ausdruck 
(a1 . (a2 . (... . (an . NIL) ... ))). 

Qraphisch ausgedruckt heiBt das: 

+ + + 

I 0 I 0 I 
+ — + — + — + — + 

I I 

V V 

al + + + 

I 0 I 0 I 
+ — + — + — + — + 

I I 

V V 
a2 



+ + + 

I o I o I 
+ — + — + — + — + 



V 
an 



V 
NIL 



Oft werden wir fur Listen auch die graphische Form 

+ + + + + + + + + 

I 0 I 0— +— >| 0 I 0— +— > ... I 0 I o— +— > NIL 

+ — + — + + + — + — + + + — + — + + 

I I I 

V V V 

al a2 an 
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benutzen. 

Aus der Graphik wird deutlich, daB NIL als eine Art AbschluBmarkierung fur Listen 
dient. 

Eine leere Liste wird durch das Atom NIL dargestellt. Das PrAdikat "null" liefert "T", 
wonn sein Argument eine leere Liste ist, sonst "F". 

Beispiele: (null NIL) = T 
(null () ) = T 
(null (A B)) = F 

Die Listenelemente kOnnen selbst wieder Listen Oder Paare in Punkt - Notation sein, 
so daB Listen- und Punkt - Notation beliebig kombinierbar sind. 

Beispiele: (A B C) = (A . (B . (C . NIL))) 

+ + + + + + + + + 

I 0 I o— >| o I o— +— >| o I o— > NIL 
+ — + — + + + — + — + + + — + — + + 

I I I 

V V V 
ABC 

((A . B) C) = ((A . B) . (C . NIL)) 

+ + + + + + 

I o I o— +— >| o I 0— +— > NIL 
+ — + — + + + — + — + + 

I I 

V V 
+ + + c 

I o I o I 

+ + + + + 

I I 

V V 
A B 



LISP-Handbuch 
10 



((A B) C) = ((A . (B . NIL)) . (C . NIL)) 



+ + + -I- + + 

I o I o— + >| o I o— +— > NIL 

+ — + — + + + — + — + + 

I I 

I V 

V c 

+ + + + + + 

I 0 I 0— +— >| o I o— +— > NIL 
+ — + — + + + — + — + + 



(A) = (A . NIL) 



+ + + 

I 0 I 0— +— > NIL 
+ — + — + + 



A 

((A)) = ((A . NIL) . NIL) 

+ + + 

I o I o— +— > NIL 
+ — + — + + 



+ + + 

I o I 0— +— > NIL 
+ — + — + + 



A 
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Es ist sehr hilfreich, mit den Ergebnissen der elementaren Funktionen vertraut zu 
sein, wenn diese Listen als Argumente erhalten. Zwar kdnnen die Ergebnisse notfalls 
immer durch Ubersetzung in Punkt - Notation bestimmt werden, aber ein direktes 
VerstSindnis ist einfacher. 

Beispiele: (head (A B C)) = A 

(tail (A B O) = (B C) 

(Daher auch die Namen "head" und "tail"! Frei ubersetzt heiBen die 
beiden Funktionen "anfang" und "rest".) 



(cons A (B O) = (A B C) 
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1 .4 Syntax und Semantik der Sprache 

Wir haben bisher einen Datentyp (LISP - Ausdrucke) und funf elementare Funktionen 
eingefuhrt. AuBerdem haben wir die folgenden Eigenschaften der Sprache beschrie- 
ben: 

1. Funktions- und Variablennamen werden wie die Namen von Atomen geschrie- 
ben. auBer. daB dafur Klein- statt GroBbuchstaben verwendet werden. 

2. Die Argumente einer Funktion folgen dieser in der Liste. Eine solche Liste von 
Funktion und folgenden Argumenten heiBt Funktionsaufruf und hat einen LISP- 
Ausdruck als Ergebnis. 

3. Funktionen kOnnen dadurch verkettet werden, daB ein Argument aus einem Funk- 
tionsaufruf selbst wieder ein Funktionsaufruf ist, dessen Argumente selbst wieder 
Funktionsaufrufe sein kOnnen, usw. 

Diese Regein eriauben es, Funktionsdefinitionen wie 

(third x) = (head (tail (tail x))) 

zu schreiben. "third" holt das dritte Element aus einer Liste. 

Die Klasse der Funktionen, die man auf diese Weise biiden kann, ist ziemlich tDe- 
schrAnkt und nicht sehr interessant. Eine viel grdBere Funktionenklasse kann man mit 
Hilfe des bedingten Ausdrucks schreiben; es handelt sich dabei um eine t^ogiichkeit, 
Verzweigungen in Funktionsdefinitionen einzubauen. 

Ein bedingter Ausdruck hat die Form 

(cond (pi al) (p2 a2) ... (pn an) ) 

Jedes pi ist ein Ausdruck, dessen Wert "T" oder "F" ist, also ein PrSdikat. Die ai 
sind beliebige LISP - Ausdrucke. 

Die Bedeutung eines bedingten Ausdrucks ist folgende: Wenn pi wahr ist, ist al der 
Wert des ganzen Ausdrucks. Wenn pi falsch ist, wird getestet, ob p2 wahr ist; wenn 
das der Fall ist, ist a2 der Wert des Ausdrucks. Die pi werden also von links nach 
rechts durchgegangen, bis ein wahrer Ausdruck gefunden ist; das zugehdrige ai ist 
dann der Wert des bedingten Ausdrucks. Wenn kein wahres pi gefunden ist, ist der 
bedingte Ausdruck nicht definiert. 

Jedes pi Oder ai kann selbst wieder ein LISP- Ausdruck, ein Funktionsaufruf Oder ein 
bedingter Ausdruck sein. 
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Beispiel: (cond ((eq (head x) A) (cons B (tail x))) (T x) ) 

Das Prftdikat "T" ist immer wahr. Man liest es am besten als "SONST". Den Wert 
dieses Ausdruck erhdit man, wenn man "head" von x durch B ersetzt, wenn der 
gerade gleich mit A ist, und sonst ert\&\\ man x. 

Der Hauptzweck von bedingten Ausdrucken ist die rekursive Definition von Funktio- 
nen. 

Beispiel; (firstatom x) = (cond ((atom x) x) 

( T (firstatom (head x))) 

) 

Dies Beispiel definiert die Funktion "firstatom", die das erste Atom jedes LISP-Aus- 
drucks bestimmt. Diesen Ausdruck kann man so lesen: wenn "x" ein Atom ist, ist "x' 
selbst die Antwort; sonst muB "firstatom" auf "head" von "x" angewandt werden. 

Wenn also "x" ein Atom ist, wird der erste Zweig gewdhit, der "x" liefert; sonst wird 
der zweite Zweig "firstatom (head x)" gewAhIt, weil "T" immer wahr ist. 

Die Definition von "firstatom" ist rekursiv, d.h. "firstatom" ist mit durch sich selbst 
definiert. Allerdings, wenn man immerzu den "head" von irgendeinem LISP -Aus- 
druck nimmt, errreicht man irgendwann ein Atom, so daB der ProzeB immer wohlde- 
finiert ist. 

Es gibt rekursive Funktionen, die nur fur bestimmte Argumente wohldefiniert sind, fur 
bestimmte andere dagegen unendlich rekursiv. Wenn das EUMEL - LISP - System 
einen Funktionsionsaufruf mit einer solchen Funktion und "kritischen" Argumenten 
interpretiert, gerat es in unendliche Rekursion, bis entweder der zur Verfugung ste- 
hende Platz im LISP - Heap ausgeschdpft ist (im Heap werden die LISP - Ausdrucke 
gespeichert) Oder bis der Laufzeitstack uberl£kuft (der Laufzeitstack ist ein normaler- 
weise unsichtbarer Bestandteil des ELAN - Systems). 

Wir werden jetzt die Berechnung von "(firstatom ((A . B) . C))" durchfuhren. Zundchst 
ersetzen wir die Variable x in der Funktionsdefinition durch ((A . B) . C) und erhalten 

(firstatom ((A . B) . O) = 

(cond ( (atom ((A . B) . C)) ((A . B) . C) ) 
( T (firstatom (head ((A . B) . C))) ) 

) 
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((A . B) . C) ist kein Atom, deshalb wird daraus 

= (cond ( T (firstatom (head ((A . B) . C)))) ) 
= (firstatom (head ((A . B) . C)) ) 
= (firstatom (A . B)) 

An diesem Punkt mussen wir wieder die Definition von "firstatom" benutzen. diesmal 
aber fur "x" uberall "(A . B)" einsetzen. 

(firstatom (A . B)) = (cond ( (atom (A . B)) (A . B) ) 

(T (firstatom (head (A . B))) ) 

) 

= (cond (T (firstatom (head (A . B))) ) ) 

= (firstatom (head (A . B)) ) 

= (firstatom A) 

= (cond ((atom A) A) 

(T (firstatom (head A)) ) 

) 

= A 

Wenn in den bedingten Ausdrucken statt der LISP - Ausdrucke arithmetische Aus- 
driicke verwendet wurden, kfinnte man damit auch numerische Rechenvorschriften 
definieren, wie z.B. den Betrag einer Zahl durch 

(abs x) = (cond ((x < 0) -x) (T x) ) 

Oder die Fakultdt durch 

(fak n) = (cond ((n = 0) 1) 

(T (x * (fak (n - 1)))) 

) 

Die Fakultcit terminiert bei negativen Argumenten nicht. 

Es ist bei den meisten Mathematikern (auBer den Logikern) ubiich, das Wort "Funk- 
tion" nicht praise zu verwenden und auf Ausdrucke wie ''2x + y" anzuwenden. Da wir 
Ausdrucke benutzen werden, die Funktionen reprdsentieren, benOtigen wir eine 
Notation, die Funktionen und Ausdrucke unterscheidet. Dafur ist die Lambda - Nota- 
tion von Alonzo Church geeignet. 

"f" soli ein Ausdruck sein, der fur eine Funktion zweier ganzzahiiger Variablen steht. 
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Dann sollte es sinnvoll sein, den Funktionsaufruf 
(f 3 4) 

zu schreiben, so daB man dadurch den Wert dieses Funktionsaufrufs berechnen kann; 
z.B. kOnnte "(summe 3 4) = 7" gelten. 

Wenn man •'2x + y" als Funktion ansieht, kann man den Funktionsaufruf 
((2x + y) 3 4) 

schreiben. Der Wert dieses Ausdrucks ist aber nicht eindeutig bestimmt, denn es ist 
uberhaupt nicht klar, ob nun "2*3 + 4" Oder 2*4 + 3" gemeint ist. Eine Zeichenfolge 
wie "2x + y" werden wir deshalb Ausdruck und nicht Funktion nennen. Ein Ausdruck 
kann in eine Funktion umgewandelt werden, indem man die Zuordnung von Argumen- 
ten und Variablen festlegt. Bei "2x + y" kdnnte man beispielsweise festlegen, daB 
"x" immer das erste und "y" immer das zweite Argument sein soil. 
Wenn "a" ein Ausdruck in den Variablen x1, ... xn ist, dann ist 

( lambda (xl ... xn) a) 

eine Funktion mit n Argumenten. Den Wert der Funktionsaufrufe mit dieser Funktion 
(also der Ausdrucke der Form 

((lambda (xl ... xn) a) (bl ... bn)) 
erhait man, indem man die Variablen x1 ... xn durch die n Argumente des Aufrufs 
ersetzt. Beispielsweise ist 

((lambda (x y) (2*x + y)) (3 4)) = 2*3 + 4 = 10 , 

wShrend 

((lambda (y x) (2*x + y)) (3 4)) = 2*4 + 3 = 11 

ist. 

Die Variablen in einem Lambdaausdruck sind sogenannte Parameter (Oder gebundene 
Variable). Interessant ist, daB eine Funktion sich nicht dndert, wenn man eine Variable 
systematisch durch eine andere Variable ersetzt, die nicht bereits im Lambdaausdruck 
vorkommt. 



(lambda (x y) (2*y + x)) 



LISP-Handbuch 
16 



ist also dasselbe wie 

(lambda (u v) (2*v + u)) . 

Manchmai warden wir Ausdrucke benutzen, in denen eine Variable nicht durch das 
Lambda gebunden ist. Beispielsweise ist das n in 

(lambda (x y) (x*n + y*n)) 

nicht gebunden. Eine solche nicht gebundene Variable nennt man frei. 
Wenn fur eine freie Variable vor der Benutzung kein Wert vereinbart wurde, ist der 
Wert des Funktionsaufrufs nicht definiert, falls der Wert der Variablen auf das Ergeb- 
nis einen EinfluB hat. 

Die Lambdanotation reicht allein fur die Definition rekursiver Funktionen nicht aus. 
Neben den Variablen muB auch der Name der Funktion gebunden werden, weil er 
innerhalb der Funktion fur eine Zeichenfolge steht. 

Wir hatten die Funktion "firstatom" durch die Gleichung 

(firstatom x) = (cond ((atom x) x) 

(T (firstatom (head x))) 

) 

definiert. Mit der Lambda - Notation kdnnen wir schreiben: 

firstatom = (lambda (x) (cond ((atom x) x) 

(T (firstatom (head x))) 

) ) 



Das Gleichheitszeichen ist in Wirklichkeit nicht Teil der LISP - Sprache, sondern eine 
Krucke, die wir nicht mehr brauchen. wenn wir die richtige Schreibweise eingefuhrt 
haben. 

Die rechte Seite der obigen Gleichung ist als Funktion nicht vollstdndig, da dort nichts 
darauf hinweist, daB das "firstatom" im einem bedingten Ausdruck fur eben die rechte 
Seite steht. Deshalb ist die rechte Seite als Definition fur die linke Seite ("firstatom") 
noch nicht geeignet. 



LISP-Handbuch 
17 



Damit wir Definitionen schreiben kOnnen, in denen der Name der gerade definierten 
Funktion auftaucht, fuhren wir die Label - Notation ein (engi. label » Marke, (Preis - ) 
Schildchen). Wenn "a" eine Funktion ist, und "n" ihr Name, schreil)en wir "(label n 
a)". 

Nun kdnnen wir die Funktion "firstatom" ohne Gleichheitszeichen schreiben: 

(label firstatom (lambda (x) (cond ((atom x) x) 

(T (firstatom (head x))) 

) ) ) 

In dieser Definition ist "x" eine gebundene Variable und "firstatom" ein gebundener 
Funktionsname. 
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2. Das LISP - Interpreter - System 

2.1 Die unlverselle LISP-Funktlon 
"evalquote" 

Ein Interpreter Oder eine allgemeine Funktion ist eine Funktion, die den Wert jedes 
gegebenen Ausdrucks berechnen kann, wenn der Ausdruck in einer geeigneten Form 
vorliegt. (Wenn der zu interpretierende Ausdruck einen Aufruf einer unendlich rekur- 
siven Funktion enthait, wird der Interpreter naturlich ebenfalls unendlich rekursiv.) 
Wir sind jetzt in der Lage, eine allgemeine LISP - Funktion 

(evalquote function arguments) 

zu definieren. "evalquote" muB als erstes Argument ein LISP - Ausdruck uberget^en 
werden. Dieser wird als Funktion aufgefasst und auf die folgenden Argumente ange- 
wendet. 

Im Folgenden sind einige niitzliche Funktionen zur Manipulation von LISP-Aus- 
drucken angegeben. Einige von ihnen werden als Hilfsfunktionen fur die Definition von 
"evalquote" gebraucht, die wir uns vorgenommen haben. 

(equal x y) 

ist ein PrSdikat, das wahr ist, wenn seine Argumente gleiche LISP - Ausdrucke sind. 
(Das elementare Prddikat "eq" ist ja nur fur Atome definiert.) 

Die Definition von "equal" ist ein Beispiel fur einen bedingten Ausdruck innerhalb 
eines bedingten Ausdrucks. 

(label equal 
(lambda (x y) 
(cond 

((atom x) (cond 

((atom y) (eq x y)) 
(T F) 

) 

) 

((equal (head x) (head y)) (equal (tail x) (tail y))) 
(T F) 

) 

) 

) 
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Folgende Funktion liefert einen LISP- Ausdruck, der gleich mit "destination" ist. 
auBer daB darin uberall statt "old" "new" steht. 

(changeall (destination old new)) 

= (cond ((equal destination old) new) 

((atom destination) destination) 
(T (cons (changeall (head destination) old new) 
(changeall (tail destination) old new) 

) 

) 

) 

Beispielsweise gilt 

(changeall ((A . B) . C) B (X . A)) = ((A . (X . A)) . C) 
Die folgenden Funktionen sind nutzlich, wenn Listen verarbeitet werden solien. 

1. (append x y) 

hangt an die Liste "x" den LISP - Ausdruck "y". 

(append x y) = 

(cond ((null x) y) 

(T (cons (head x) (append (tail x) y) )) 

) 

2. (member list pattern) 

Dies PrSdikat testet, ob der LISP - Ausdruck "pattern" in der Liste "list" vor- 
kommt. 

(member list pattern) = 
(cond ((null list) F) 

((equal (head list) pattern) T) 
(T (member (tail list) pattern)) 

) 

3. (pairlist Iist1 Iist2 oldpairlist) 

Diese Funktion liefert eine Liste von Paaren, die die sich entsprechenden Elemen- 
te der Listen "Iist1" und "Iist2" enthalten, und an der noch die Liste "oldpairlist" 
hangt. 
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(pairlist listl list2 oldpairlist) = 
(cond ((null listl) oldpairlist) 

(T (cons (cons (head listl) (head list2)) 

(pairlist (tail listl) (tail list2) oldpairlist) 

) 

) 

) 



Beispiel : 

(pairlist (A B C) (U V W) ((D . X) (E . Y)) ) = 

((A . U) (B . V) (C . W) (D . X) (E . Y)) 



Eine solche Liste von Paaren wird auch Assoziationsliste genannt, wenn das erste 
Element jedes Paars ein Atom ist, das uber diese Liste mit dem zweiten Element 
assoziiert ist. 



5. (association pattern association I ist) 

Wenn "association list" eine Assoziationsliste wie oben beschrieben ist, liefert 
"association" das Paar der Liste, dessen erstes Element "pattern" ist. Es ist also 
eine Funktion zum Durchsuchen von Tabellen. 



(association pattern alist) = 

(cond ((eq (head (head alist)) pattern) (head alist)) 
(T (association pattern (tail alist))) 

) 



Beispiel : 



(association B ( (A . (M N)) 

(B . (HEAD X)) 



(C . (QUOTE M)) 
(B . (TAIL X)) 

) = (B . (HEAD X)) 



(replace expr alist) 

"alist" mu6 eine Assoziationsliste sein. "replace" produziert einen Ausdruck, der 
"expr" sehr ahnlich ist, nur sind alle Atome darin durch den LISP - Ausdruck 
ersetzt, mit dem sie in "alist" assoziiert sind. 
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(replace expr alist) = 

(cond ((atom expr) (association expr alist)) 
(T (cons (replace (head expr) alist) 
(replace (tail expr) alist) 

) 

) 

) 

Beispiel : 

(replace (X SCHRIEB Y) 

((Y . (GOETZ VON BERLICHINGEN) ) (X . GOETHE)) 



) 



(GOETHE SCHRIEB (GOETZ VON BERLICHINGEN)) 



Die ailgemeine Funktion "evalquote", die wir jetzt definieren wollen, gehorcht der 
folgendem Beispiel zugrundeliegenden Regel: 

Beispiel : 

(evalquote 

Funktion: (LAMBDA (X Y) (CONS (HEAD X) Y) ) 

Argumente: (A B) (C D) 

) 



(apply 

Funktion: (LAMBDA 
Argumentliste: ((QUOTE 
Bindung: NIL 



(X Y) (CONS (HEAD X) Y)) 
(A B)) (QUOTE (C D))) 



Die Argumente von "evalquote" warden also zu einer gequoteten Argumentliste von 
"apply". Die QUOTE - Funktion bewirkt, daB das Argument der QUOTE - Funktion 
wOrtlich genommen, also nicht weiter evaluiert wird. Das dritte Argument von "apply", 
das NIL ist eine leere Bindeliste zur Bindung von Parametern und Argumenten im 
nachsten Schritt: 
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(eval 

Argumente: (CONS (HEAD X) Y) 

Bindung: ((X.(A B)) (Y . (C D))) 

) 

(cons (head (A B)) (C D)) 

(A C D) = Ergebnis von "evalquote" . 

"evalquote" wird hauptsSchlich durch die Hilfsfunktlon "apply" definiert. "apply" 
berechnet Funktionsaufrufe, indem es die Argumente und die Parameter der Funktion 
bindet und den Funktionsrumpf berechnet. Die Bindungen werden in einer Assozia- 
tionsliste, der Bindeliste, gespeichert. Da bedingte Ausdrucke und Konstanten formal 
wie Funktionsaufrufe von Funktionen "cond" und "quote" aussehen, werden sie auch 
so behandelt. 

Wir definieren also: 

(evalquote fkt expr) = (apply fkt (quote expr) NIL) . 

sowie : 

(eval expr binding) = 

(cond ((atom expr) (tail (association expr binding))) 
(T (apply (head expr) (tail expr) binding)) 

) 

"eval" stent also erst fest, ob es sich um ein Atom Oder um einen Funktionsaufruf 
handelt. Da es nur diese beiden Mdglichkeiten gibt. ist diese Einteilung vollstdndig. 

Atome sind immer Ubersetzungen von Variablen, fur die eine Bindung existieren muB, 
so daB ihr Wert aus der Bindeliste geholt wird. 

Funktionsaufrufe sind immer Listen; im zweiten Zweig werden die Funktion und die 
Parameter I iste getrennt und an "apply" ubergeben. 

Um sich die Aktionen in diesem zweiten Zweig von "eval" genauer vorstellen zu 
kOnnen, ist vielleicht die in Abschnitt 1.1 beschriebene graphische Darstellungsmetho- 
de hilfreich; beispielsweise wurde sich ein Lambda - Ausd ruck so ausnehmen: 
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+ + + + + + + + + 

I 0 I o— +— >| 0 I o— +— >| o I o— +— >NIL 
+ — + — + + + — + — + + + — + — + + 



V 

LAMBDA 



V 

Parameterliste 



V 

Ausdruck 



"apply" bekommt nun von "eval" eine Funktion und eine Parameterliste sowie die 
Bindeliste ubergeben. Mit diesen beiden macht es folgendes: 

(apply fn args binding) = 
(cond 

((atom fn) 

(cond ((eq fn HEAD) (head (eval (head args) binding))) 

((eq fn TAIL) (tail (eval (head args) binding))) 

((eq fn CONS) (cons (eval (head args) binding) 

(eval (head (tail args)) binding) 



((eq 
((eq 



fn ATOM) 
fn EQ) 



(atom (eval (head args) 
(eq (eval (head args) 
(eval (head (tail 



binding) ) ) 
binding) 
args)) binding) 



((eq fn QUOTE) (head args)) 

((eq fn COND) (evalcond args binding)) 

(T (apply (tail (association fn binding)) args binding)) 



((eq (head fn) LABEL) 

(apply (head (tail (tail fn))) 

args (cons (cons (head (tail fn)) 

(head (tail (tail fn))) 
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Das erste Argument von "apply" ist eine Funktion (unter der Voraussetzung, daB 
"quote" und "cond" als Funktionen anerkannt werden). 

Wenn es eine der elementaren Funktionen "head", "tall", "cons", "atom" oder "eq" 
ist. wird die jweilige Funktion auf die Argumente angewandt. die vorher berechnet 
werden. Diese Berechnung erfolgt mit "eval", das ja fur Variablen Werte aus der 
Bindeliste llefert und fur Funktionsaufrufe das, was "apply" mit ihnen machen kann. 

Wenn es sich um "quote" handelt, wird das erste Argument unverdndert geliefert 
"quote" helBt ja "dies ist eine Konstante, die so, wie sie da steht, ubernommen wer- 
den soil". 



Wenn es sich um "cond" handelt, wird die Funktion "eval cond" aufgerufen, doch 
auch ihre Argumente werden nicht berechnet, auBerdem geh6rt die Assoziationsliste 
zu den Argumenten: 

eval (cond condlist, binding) = 

(cond ((eval (head (head condlist)) binding) 

(eval (head (tail (head condlist))) binding) 

) 

(T (cond (tail condlist) binding)) 

) 



Hier empfiehit es sich, einen bedingten Ausdruck in graphischer Form hinzuschreiben 
und die Auswertung anhand der Zeichnung nachzuvollziehen. 

Wenn die Funktion nichts von alledem ist. wird in der Bindeliste nachgesehen, ob 
dies Atom nicht an eine Funktion gebunden ist; falls ja, wird eine Auswertung dieser 
Funktion mit den gleichen Argumenten versucht. 

Wenn das erste Argument von "apply" kein Atom ist, muB es ein LABEL- oder ein 
LAMBDA - Ausdruck sein. 



Ein LABEL - Ausdruck hat die Form 



+ + + + + + ^ + ^ 

I 0 I o— +— >| 0 I 0— +— >| 0 I o— +— > NIL 
+ — + — + + + — + — + + + — + — + + 

I I I 

V V V 

LABEL Name Funktion 
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Funktionsname und Definition werden in einem funktionalen Eintrag in die Bindeliste 
eingefugt, so daB der Name an die Funktion gebunden ist. 



Ein LAMBDA - Ausdruck hat die Form 



+ + + + + + + + + 

I o I o— +— >| 0 I o— +— >| 0 I o— +--> NIL 
+ — + — + + + — + — + + + — + — + + 

I I I 

V V V 

LAMBDA Parameterliste Ausdruck 



Dabei ist die Parameterliste eine Liste von Atomen, den Parametern. Die Auswertung 
Iduft so ab, daB die Parameter durch "pairlist" an die Argumente gebunden werden 
und mit dieser neuen Bindeliste der Ausdruck berechnet wird. 



Das EUMEL-LISP bietet eine Reihe weiterer MOglichkeiten, die erst spdter beschrie- 
ben werden. Hier kOnnen wir allerdings schon die folgenden Punkte abhandein: 

1. Jede LISP-Eingabe ist ein LISP- Ausdruck. Der "head" dieses Ausdrucks wird 
als Funktion aufgefaBt und auf den gequoteten "tail" des Ausdrucks, namiich die 
nicht zu evaluierenden Argumente angewandt. Die Ubersetzung von Kleinbuchsta- 
ben in GroBbuchstaben wird vom LISP -System ubernommen. 

2. In der Theorie des reinen LISP mussen alle Funktionen auBer den fiinf Basisfunk- 
tionen an alien Stellen wieder definiert werden, an denen sie aufgerufen werden. 
Das ist eine fur die Praxis SuBerst unhandliche Regelung; das EUMEL-LISP- 
System kennt weitere vordefinierte Funktionen und bietet die MOglichkeit, beliebig 
viele weitere Standardfunktionen einzufuhren. auch solche Funktionen, deren 
Argumente nicht berechnet werden (wie "quote") Oder solche, die beliebig viele 
Argumente haben durfen (wie "cond"). 

3. Die Basisfunktion "eq" hat immer einen wohldefinierten Wert, dessen Bedeutung 
im Fall, daB Nicht -Atome verglichen werden, im Kapitel uber Listenstrukturen 
erkldrt wird. 



4. AuBer in sehr seltenen Fallen schreibt man nicht (quote T), (quote F) Oder (quote 
NIL), sondern T, F und NIL. 

5. Es besteht die Mdglichkeit, mit Ganzzahlen zu rechen. die als weiterer Typ von 
Atomen gelten. AuBerdem k6nnen TEXTe und Einzelzeichen (CHARACTERS) 
gespeichert werden. 
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6. Es besteht die MOglichkeit der Ein- und Ausgabe von LISP- Ausdrticken, Ganz- 
zahlen, TEXTen und CHARACTERS. 

WARNUNG: Die oben angegebenen Definitionen von "eval" und "apply" dienen nur 
pddagogischen Zwecken und sind nicht das. was wirklich im Interpreter 
ablduft. 

Urn zu entscheiden, was wirklich vor sich geht, wenn der Interpreter 
aufgerufen wird, sollte man sich an die ELAN- Quel Iprogramme halten. 
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2.2 Anwendungsregein und Beispiele 



Die Funktionsweise des LISP ~ Interpreteres kann bequem unter Verwendung der 
Funktion "trace" verfolgt werden. Der Aufruf: 

(trace) 

schaltet den Trace - Protokollmodus des Interpreters ein bzw. aus. 

Das folgende Beispiel ist ein LISP-Programm, das die drei Funktionen "union", 
"intersection" und "member" als Standardfunktionen einfuhrt Die Funktionen lauten 
folgendermaBen: 



(member pattern list) = (cond 

) 



((null list) F) 

((eq (head list) pattern) T) 

(T (member pattern (tail list))) 



(union x y) = (cond ((null x) y) 

((member (head x) y) (union (tail x) y)) 
(T (cons (head x) (union (tail x) y))) 

) 

(intersection x y) = (cond ((null x) NIL) 

((member (head x) y) 

(cons (head x) (intersection 
(tail x) y)) 

) 

(T (intersection (tail x) y)) 



Um die Funktionen als neue Standardfunktionen einzufuhren. benutzen wir die Pseu- 
dofunktion "define": 
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(DEFINE 

(MEMBER . (LAMBDA (PATTERN LIST) 

(COND ((NULL LIST) F) 

((EQ (HEAD LIST) PATTERN) T) 

(T (MEMBER PATTERN (TAIL LIST))) 

) ) ) 

(UNION . (LAMBDA (X Y) 

(COND ((NULL X) Y) 

((MEMBER (HEAD X) Y) (UNION (TAIL X) Y)) 
(T (CONS (HEAD X) (UNION (TAIL X) Y))) 

) ) ) 

(INTERSECTION . (LAMBDA (X Y) 

(COND ((NULL X) NIL) 

((MEMBER (HEAD X) Y) 

(CONS (HEAD X) (INTERSECTION (TAIL 
X) Y)) 

) 

(T (INTERSECTION (TAIL X) Y)) 

) ) ) 

) 

Die Funktlon DEFINE, liefert als Pseudofunktion nicht nur einen LISP - Ausdruck als 
Ergebnis. sondern hat auch einen bleibenden Effekt, ndmlich eine Verdnderung im 
LISP -Heap. 

DEFINE hat beliebig viele Parameter der Form (Name . Funktlon) und bewirkt, daB die 
Funktionen unter dem jewelligen Namen im System verfugbar warden, also fur die 
weitere Programmausfuhrung definiert werden. Das Ergebnis von DEFINE ist eine 
Liste der neuen Funktionsnamen, also hier 

(MEMBER UNION INTERSECTION) 
Der Wert den der LISP - Interpreter bei Eingabe von 

(intersection (al a2 a3) (al a3 a5)) 
liefert ist (Al A3) , 



Die Funktion 

(union (x y z) (u v w x)) 



liefert 



(Y Z U V W X) 
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Es folgen einige elementare Regein fur LISP - Programme: 

1. Ein LISP - Programm besteht aus einem Funktionsaufruf. Im Beispiel ist das die 
Funktion DEFINE, die ihre Parameter (beliebig viele) berechnet und ausgibt. Die 
Berechnung der Parameter erfolgt dabei in der Reihenfolge der Parameter (norma- 
le LISP - Funktionen mit mehreren Parametern berechnen standardmSBig alle 
Parameter, allerdings in irgendeiner Reihenfolge). 

2. LISP ist formatfrei. d.h. jedes Symbol kann in jeder Spalte stehen. Fur die Bedeu- 
tung des Programms ist nur die Reihenfolge der Symbole maBgeblich. Zeilen- 
wechsel wird als Leerzeichen aufgefaBt. 

3. Atome mussen mit einem Buchstaben anfangen, damit sie nicht mit Zahlen ver- 
wechselt werden. 

4. Ein LISP - Ausdruck der Form (A B C . D) ist eine Abkiirzung fur (A.(B.(C.D))). 
Jede andere Plazierung des Punkts ist ein Fehler (falsch wdre z.B. (A . B C) ). 

5. Eine Anzahl von Basisfuntionen existiert von Anfang an, ohne daB sie durch 
DEFINE eingefuhrt wurden. Der Programmierer kann weitere Funktionen bleibend 
Oder fur die Dauer eines Programmlaufs einfuhren; dat>ei ist die Reihenfolge der 
neuen Funktionen gleichgultig. 
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2.3 Variablen 



Eine Variable ist ein Symbol, das ein Argument einer Funktion repr£^sentiert. Man 
kann also schreiben: "a + b, wobei a = 3 und b = 4". In dieser Situation ist keine 
Verwechslung mdglich, so daB klar ist, daB das Ergebnis 7 ist. Urn zu diesem Ergeb- 
nis zu kommen, muB man die Zahlen anstelle der Variablen einsetzen und die Opera- 
tion ausfuhren, d.h. die Zahlen addieren. 

Ein Grund, weshalb das eindeutig ist, liegt darin, daB "a" und "b" nicht "direkt" 
addiert werden kbnnen, so daB etwa "ab" entsteht. In LISP kann die Situation vie! 
komplizierter sein. Ein Atom kann eine Variable Oder ein Atom sein. 

Sollte der zukunftige LISP - Benutzer an dieser Stelle entmutigt sein, sei ihm gesagt, 
daB hier nichts Neues eingefuhrt wird. Dieser Abschnitt ist nur eine Wiederholung der 
Uberlegungen aus Abschnitt 1.4. Alles, was wir in diesem Abschnitt sagen, kann man 
aus den Regein fur LISP - Ausdrucke Oder aus der allgemeinen Funktion "evalquote" 
ableiten. 

Der Formalismus, der in LISP die Variablen kennzeichnet, ist die Lambdanotation von 
Church. Der Tell des Interpreters, der die Variablen an Werte bindet, heiBt "apply". 
Wenn "apply" auf eine Funktion stfiBt, die mit LAMBDA anfSngt, wird die Variablenli- 
ste (Argumentliste) mit der Parameterliste gepaart und am Anfang der Bindeliste 
eingefugt. 

wahrend der Berechnung des Funktionsrumpfs mussen manchmal Variablen durch 
ihre Werte ersetzt werden. Das geschieht dadurch, daB ihr Wert in der Bindeliste 
nachgesehen wird. Wenn eine Variable mehrmals gebunden wurde, wird die zuletzt 
etablierte Bindung verwendet. Der Teil des Interpreters, der diese "Berechnungen" 
und die Berechnung von Funktionsaufrufen durchfuhrt. heiBt "eval". 
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2.4 Konstanten 



Manchmal heiBt es, eine Konstante stehe fur sich selbst, im Qegensatz zu einer 
Variablen, die fur etwas anderes. ndmlich ihren Wert, steht. 

Dies Konzept funktioniert in LISP nicht so ohne weiteres; es ist hier sinnvoller, zu 
sagen. eine Variable ist konstanter ais die andere. wenn sie in einer hoheren Ebene 
gebunden ist und ihren Wert seltener dndert. 

In LISP bleibt eine Variable im Bereich des LAMBDA konstant. von dem sie gebunden 
ist. Wenn eine Variable einen festen Wert hat, unabh^ngig davon, was in der Bindeli- 
ste steht, wird sie (echte) Konstante genannt. Dies wird mit Hilfe der Eigenschaftsliste 
(E - Liste) des Atoms erreicht. 

Jedes Atom hat eine E- Liste, in der Paare von Atomen und beliebigen Strukturen 
gespeichert sind. Ein Atom hat die Eigenschaft A. wenn in seiner E- Liste ein Paar 
mit dem Atom A enthait; die dazugehdrige "beliebige Struktur" heiBt Wert dieser 
Eigenschaft. 

Wenn ein Atom die Eigenschaft APVAL besitzt, ist es eine Konstante, deren Wert der 

Wert der Eigenschaft ist. 

Konstanten kGnnen durch die Pseudofunktion 

(set atom wert) 

gesetzt werden; nach der Auswertung eines solchen Aufrufs hat das Atom "atom" 
immer den Wert "wert" - bis zum nSchsten "set". Eine interessante Klasse von 
Konstanten sind solche Konstanten, die sich selbst als Wert haben. Ein Beispiei dafur 
ist NIL. Der Wert dieser Konstanten ist wieder NIL. Daher kann NIL nicht als Variable 
benutzt werden, da es ja eine Konstante ist. (T und F gehdren ebenfalls zu dieser 
Klasse). 
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2.5 Funktionen 



Wenn ein LISP - Ausdruck fur eine Funktton steht. ist die Situation dhnlich der. in der 
ein Atom fur einen Wert steht. Wenn die Funktion rekursiv ist, muB sie einen Namen 
bekommen. Das geht mit einem LABEL- Ausdruck, der den Namen mit der Funk- 
tionsdefinition in der Bindeliste paart. Dadurch wird der Name an die Funktionsdefini- 
tion gebunden. so wie eine Variable an ihren Wert gebunden wird. In der Praxis setzt 
man LABEL selten ein. Normaierweise ist es einfacher, Name und Definition wie bei 
den Konstanten zu verknupfen. Dies geschieht mit der Pseudofunktion DEFINE, die 
wir am Anfang des Kapitels benutzt haben. 
Diese Funktion kann beliebig viele Parameter der Form 

(atom . funktion) 

haben, wobei "atom" der Name der zu definierenden Funktion "funktion" werden soli. 
Sie bewirkt, daB die Definition unter der Eigenschaft FUNCTION in der E-Liste des 
Atoms abgelegt wird. 
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3. Erweitertes LISP 



In diesem Kapitel werden wir einige Erweiterungen zum reinen LISP einfuhren. Zu 
diesen Erweiterungen gehdren M6glichkeiten fur Arlthmetik, Zelchenkettenverarbei- 
tung, Funktionen. die spezielle Argumente erwarten. und Bin - und Ausgabe. 

In alien Fallen handelt es sich bei den Erweiterungen urn zusdtzliche Funktionen. So 
heifit das Kommando fur die Ausgabe eines LISP - Ausdrucks PUT. Syntaktisch ist 
PUT nichts anderes als eine Funktion mit einem Argument. Sie kann mit anderen 
Funktionen verkettet werden. und diese Verkettung wird ganz auf die ubiiche Art 
behandelt, zuerst Berechnung der innern, dann der auBeren Funktionsaufrufe.- Bin 
Brgebnis ist nur in dem trivialen Sinn vorhanden, daB PUT sein Argument wieder 
liefert. also die Identitdt ist. 

Funktionen, die eine Aktion wie Bin- Oder Ausgabe bewirken, Oder die Langzeitwir- 
kung (gesehen auf die Ausfuhrungsdauer des Programms) haben, wie DEFINE und 
SET, heiSen Pseudofunktionen. Es ist eine Besonderheit von LISP, daB alle Funktio- 
nen einschiieBlich den Pseudofunktionen ein Brgebnis haben mussen. In einigen 
Fdllen ist das Brgebnis trivial und kann ignoriert werden. 

In diesem Kapitel beschreiben wir verschiedene Erweiterungen der Sprache LISP, die 
im System fest enthalten sind. 
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3.1 Gequotete Parameter 

Bevor ein Argument an eine Funktion ubergeben wird, wird erst sein Wert in der 
Bindeliste nachgesehen, d.h. es wird nicht der Name der Variablen ubergeben, son- 
dern ihr Wert. Wenn das Argument als Konstante behandeit werden soil, muB es 
ge''quotet'' werden, d.h. statt "argument" steht (quote argument). Wenn ein Argument 
einer Funktion immer als Konstante behandeit werden soli, ist es bequemer, das 
Argument nicht jedesmal zu quoten. Das EUMEL- LISP -System eriaubt, in diesem 
Fall den formalen Parameter in der Funktionsdefinition bereits zu quoten. 

Dieser Mechanismus wurde auch benutzt, um QUOTE zu implementieren; die Funk- 
tion lautet 

quote = (lambda ((QUOTE x)) x) 
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3.2 Funktionen mit beliebig vielen 
Argumenten 

Ein Beispiel ist "list", das beliebig viele Argumente haben kann, die zu einer Liste 
zusammengefaBt werden. Da eine Funktion nur eine teste Anzahl von Parametern 
haben kann, eine Funktion mit beliebig vielen Argumenten aber gewiB keine teste 
Anzahl von Argumenten hat, werden die beliebig vielen Argumente zu einer Liste 
zusammengefaBt und ein einziger Parameter wird an diese Liste gebunden. Da "list" 
genau diese Liste lietern soil, wird diese Funktion ebentalls zu einer "Identitdt": 

list = (lambda ((INDEFINITE x)) x) 

Solche Parameter werden durch INDEFINITE gekennzeichnet. Sie k6nnen auch ge- 
quotet werden, indem man (INDEFINITE QUOTE parameter) schreibt; das wirkt so, als 
wdren alle Argumente, die diesem Parameter zugeordnet werden, einzein gequotet 
worden. 

evalquote = (lambda (fkt (INDEFINITE QUOTE expr)) 
(apply fkt expr NIL) ) 
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3.3 Funktionale Parameter 



In der Mathematik gibt es Funktionen, die andere Funktionen als Argument haben. In 
der Algebra kttnnte man die Funktion "(operation operator a b)" definieren, wobei 
"operator" ein funktionales Argument ist. das die Operation festlegt, die auf "a" und 
"b" ausgefuhrt werden soli. Beispielsweise gilt 

operation (+ 3 A) = 7 
operation (* 3 4) = 12 

In LISP sind funktionale Argumente sehr nutzlich. Eine wichtige Funktion mit einem 
Argument ist MAPLIST. Ihre Definition ist 

(LAMBDA (LIST (FUNCTION FN)) 
(COND ((NULL LIST) NIL) 

(T (CONS (FN (HEAD LIST)) (MAPLIST (TAIL LIST) FN))) 

) ) 

Diese Funktion nimmt eine Liste und eine Funktion als Argument und wendet die 
Funktion auf die Listenelemente an. 
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3.4 Pradikate und boolesche Konstanten 



Die booleschen Werte sind, wie in Kapitel 1 gesagt, T und F. Bei LISP - Ausdrucken 
muBte daraus (quote T) und (quote F) werden, aber da die APVALs dieser Atome 
wieder den Wert T und F hatDen, ist das quoten nicht ndtig. 

PrSdikate sind Funktionen, die T oder F als Ergebnis haben; es gibt also keine forma- 
len Unterschiede zwischen anderen Funktionen und Prddikaten. 

Daher ist es durchaus mOgiich, daB eine Funktion einen Wert liefert, der weder T 
noch F ist, daB aber durch einen tDedingten Ausdruck an dieser Stelle ein boolescher 
Ausdruck verlangt wird. In diesem Fall ist die Wirkung des Ausdrucks nicht definiert. 
Das Pr&dikat EQ hat folgendes Verhalten: 

1. Wenn seine Argumente verschieden sind, ist das Ergebnis F. 

2. Wenn die Argumente dasselbe Atom sind, ist das Ergebnis T. 

3. Wenn die Argumente gleich, aber nicht atomar sind, ist das Ergebnis T Oder F, je 
nachdem, ob sie ein und dasselbe Objekt im Heap sind Oder nicht. 
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3.5 Unbenannte Atome 



Die meisten Atome Im EUMEL-LISP haben einen Namen, der sie bel Ein- und 
Ausgabeoperationen identifiziert. 

Es gibt aber auch Atome, die keinen Namen haben und stattdessen durch ihre Werte 
reprAsentiert werden. Momentan sind das Ganzzahlen und Zeichenketten (TEXTe); 
auch die booleschen Werte kann man in einem weiteren Sinn dazurechnen. 



3.5.1 Ganzzahlen 



Im EUMEL-LISP gibt es Funktionen, die Basisoperationen und Tests durchfuhren. 
Ganzzahlen haben folgende Eigenschaften: 

1. Eine Ganzzahl besteht aus einem optionalen Vorzeichen und einer Folge von 
Ziffern: zwischen Vorzeichen und ZIffern kGnnen Leerzeichen stehen. 

2. Der Wert einer Ganzzahl liegt zwischen - 32768 und 32767 (minint und maxint). 

3. Eine Ganzzahl kann. uberall dort stehen, wo ein Atom stehen kann, auBer als 
Parameter. 

4. Ganzzahlen sind Konstanten; sie brauchen also nicht gequotet werden. 
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3.5.2 Arithmetische Funktionen und Pradikate 



Es folgt eine Liste aller arithmetischen Funktionen. 

Wenn ein Argument einer dieser Zahlen keine Ganzzahl ist, erfolgt eine Fehiermei- 
dung. 



(sum x1 ... xn) 

(difference x y) 
(product x1 ... xn) 



(quotient x y) 

(remainder x y) 
(getint) 

(putint X) 



liefert die Summe der xi; wenn keine Argumente gege- 

ben werden, wird 0 gelrefert. 

liefert die Differenz von x und y. 

liefert das Produkt seiner Argumente; wenn 

keine Argumente geget^en werden, wird 1 

geliefert. 

liefert den Quotienten von x und y, ohne den 
Rest zu t)erucksichtigen. 

liefert den Rest der Division von x und y. 

liest eine Zahl vom Bildschirm ein und 
liefert sie. 

gibt X auf den Bildschirm aus. Identitdts funktion. 



3.5.3 Zeichenkettenverarbeitung 

Im Moment ist nur Zeichenketten - Ein - und Ausgabe implementiert. 

Die Ausgabe I6st bei Argumenten. die keine Zeichenketten sind. eine Fehlermeidung 

aus. 

(gettext) liest eine Zeichenkette ein und liefert sie. 
(puttext X) gibt eine Zeichenkette aus. 



3.5.4 Test auf Gleichheit 



(equal x y) testet, ob x und.y vom gieichen Typ sind, und wenn ja, ob sie gleich 
sind. 
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3.6 Aufruf von EUMEL aus 

Bevor man den LISP - Interpreter benutzen kann, muB er folgendermaBen implemen- 
tiert werden: 

archive ("lisp") 
fetch all (archive) 
release (archive) 
check off 
insert ("lisp.T) 
insert ("lisp.2") 
insert ("lisp.S") 
insert ("lisp.4") 
check on 



Das LISP -System verfugt uber einen Heap, in dem alle LISP- Ausdrucke gespei- 
chert sind. Standardmc^Big enthdit der Heap eine Reihe von Funktionen, die nicht in 
den LISP - Programmen definiert werden mussen (Ut)ersichten ut)er die Standardfunk- 
tionen siehe Kapitel 3.5). 

Mit 

lisp 

wird das LISP -System im EUMEL -Dialog gestartet. In einem Eingabefenster wird 

mit Hilfe des Paralleled iters eine LISP- EINGABE-Moglichkeit angeboten. Die Aus- 

gabe erfolgt in dem LISP - AUSGABE - Fenster. 

Das LISP -System kann folgendermaBen verlassen werden: 

<ESC> <ESC> break lisp < RETURN >. 

Statt dieser direkten Art der Benutzung der LISP - Maschine ist auch eine an ELAN 
angelehnte Art mit den Prozeduren "run lisp", insert lisp" usw. vorgesehen: 

Mit 

run lisp (TEXT CONST dateiname) 

wird eine Kopie des Heaps angelegt, das Programm aus der Datei "dateiname" in die 
Kopie eingelesen und gestartet. Durch diesen Kopiermechanismus wird der Original- 
heap vor Zusammenbruchen des LISP - Systems geschutzt. 
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insert lisp (TEXT CONST dateiname) 

bewirkt dasselbe wie "run lisp"; allerdings wird jetzt direkt auf dem Originalheap 
gearbeitet. Dadurch sind alle Anderungen im Heap, die das Programm verursacht 
(meist Definition von Funktionen durch DEFINE) bleibend, aber auch ein Zusammen- 
bruch ist insoweit endgultig. als das LISP -System jetzt neu gestartet werden muB. 
Das geschieht mit 

start lisp system (DATASPACE CONST dsname) 

"dsname" gibt dabei den Datenraum an, der die zum Hochfahren notwendigen Daten 
enthalt. Solche Daten im richtigen Format enthalt der Datenraum "lisp.bootstrap". 
Wenn der zuletzt benutzte Heap mit nicht mehr durch LISP - Programme erreich- 
bare Strukturen vollgestopft ist, schafft die Prozedur 

collect lisp heap garbage 
Abhilfe; mit 

lisp storage info 
kann man den Erfolg kontrollieren. 
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4. Detailbeschreibungen 



4.1 Grundfunktionen 



Die Datei "lisp.l" enthait ein Paket, das die Grundlage des LISP - Systems bildet. Es 
implementiert 

- die primitiven LISP - Funktionen wie "cons", "null", etc., 

- die Verwaltung des Heaps, in dem die LISP - Strukturen und die Objektliste 
(Oblist) gespeichert sind, 

- einen Datentyp SYM, dessen Wertevorrat aus Zeigern auf die im Heap gespei- 
cherten Strukturen besteht, 

- Funktionen zur Konversion allgemeiner Daten in LISP - Strukturen (bisher reali- 
siert: TEXT < - - > SYM und INT < - - > SYM). 

Durch die Implementation der Basisoperationen als exportierte und damit allgemein 
verfiigbare ELAN - Prozeduren ist es m6glich, LISP - Strukturen durch ELAN -Prog- 
ramme zu manipulieren; insbesonders kOnnen ELAN- und LISP - Programme uber 
diese Strukturen miteinander kommunizieren. 

Anmerkung: 

Wenn Eigenschaften von "SYM" -Objekten beschrietjen werden, sind immer die 
Eigenschaften der Strukturen gemeint, auf die die Objekte zeigen, wenn nichts ande- 
rec angegeben wird. 



Es werden folgende Prozeduren exportiert: 

PROC initialize lisp system (DATASPACE CONST new heap): 

"new heap" ist der neue Datenraum, in dem der LISP -Heap ab sofort gefuhrt 
wird. 

Vorsicht: Beim Wechsel zu einem neuen Datenraum sind die Werte der 
SYM- Variablen, die auf Strukturen im alten Heap zeigen, naturlich wertlos! 

PROC dump lisp heap (FILE VAR f): 
In "f" wird ein Dump des Heaps erstellt. Dieser Dump ist nur mit Kenntnis des 
Program mtextes aus "lisp 1" verstSndlich; er wird hier nicht beschrieben. 
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PROC lisp storage (INT VAR size, used): 
Nach dem Aufruf gibt "size" die maximal verfugbare Anzahl von Knoten an, 
wdhrend "used" die Anzahl der tatsdchlich von LISP - Strukturen beiegten 
Knoten enthait. Zu diesen Strukturen kdnnen auch solche zShlen, die nicht mehr 
durch "head" Oder "tail" etc. erreichbar sind. 

PROC collect lisp heap garbage: 

LOscht die im LISP- Heap nicht mehr durch "atom (TEXT CONST)", "proper- 
ty", "head" und "tail" erreichbaren Strukturen. Es werden auch alle nur von 
ELAN - Programmen aus uber SYM - Variable erreichbare Strukturen gelbscht, so 
daB die Werte dieser Variablen undefiniert werden. 

Die Mullabfuhr wird von keiner Prozedur dieses Pakets aufgerufen, d.h. der 
Benutzer, der ELAN - Programme einsetzt, braucht nicht alle Strukturen in den 
Eigenschaftslisten von Atomen aufzubauen, um sie vor einer versehentlichen 
Lbschung durch die Mullabfuhr zu schutzen, vorausgesetzt, er ruft sie nicht 
selbst auf. Er muB allerdings darauf achten, daB im Heap noch genug Platz 
bleibt. 

OP : = (SYM VAR left. SYM CONST right): 

Nach der Zuweisung zeigt "left" auf die gleiche Struktur wie vorher "right". 

SYM CONST nil. pname; 
Zwei Konstanten, die dem LISP -System stSndig zur Verfugung stehen mus- 
sen. Ihre Drucknamen sind "NIL" bzw. "PNAME" (vgl. SchluBbemerkungen) 

SYM PROC head (SYM CONST sym): 
Entspricht der im Handbuch beschriebenen Funktion "head". 

SYM PROC tail (SYM CONST sym): 
Entspricht der im Handbuch beschriebenen Funktion "tail". 

SYM PROC cons (SYM CONST head, tail): 
Llefert einen SYM -Wert "zeiger" auf eine neue Struktur. Es gilt: 
head ("zeiger") = "head" und tail ("zeiger") = "tail". 

BOOL PROC eq (SYM CONST sym 1. sym 2): 
Pruft, Ob "sym r und "sym 2" auf dieselbe Struktur zeigen. Das ist genau dann 
der Fall, wenn sie durch Zuweisung auseinander hervorgegangen sind Oder wenn 
sie auf das gleiche benannte Atom zeigen. 
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BOOL PROC equal (SYM CONST sym 1, sym 2): 
Pruft, Ob "sym 1" und "sym 2" dieselbe Struktur haben; "dieselbe Struktur" 
braucht aber nicht "Identitat" zu bedeuten, wie "eq" das verlangt. 
Umgewandelte TEXTe und INTs werden richtig verglichen (siehe "sym (INT 
CONST)" und "sym (TEXT CONST)"). 

BOOL PROC null (SYM CONST sym): 
Pruft. Ob "sym" gleich der Konstanten "NIL" ist (entspricht 
eq ("sym", "NIL"), ist aber schneller). 

BOOL PROC atom (SYM CONST sym): 
Pruft, ob "sym" ein ( benanntes Oder unbenanntes) Atom ist. 

BOOL PROC is named atom (SYM CONST sym): 
Pruft, Ob "sym" ein benanntes Atom ist. 

PROC begin oblist dump: 
Vorbereitung fur "next atom". 

SYM PROC next atom: 
Liefert das ndchste Atom aus der Objektliste. In der Objektliste sind alle benann- 
ten Atome, die der Heap enthSIt, aufgefuhrt (bis auf Ausnahmen; s. "delete 
atom"). "NIL" wird immer als letzte Atom geliefert. 

SYM PROC atom (TEXT CONST name): 
Liefert einen Zeiger auf das Atom mit dem Namen "name". Wenn kein seiches 
Atom in der Objektliste vorhanden ist, wird "NIL" geliefert. 

SYM PROC new atom (TEXT CONST name): 
Liefert einen Zeiger auf das Atom mit dem Namen "name". Wenn kein solches 
Atom in der Objektliste vorhanden ist, wird ein neues mit diesem Namen in sie 
eingefugt. 

PROC create atom (TEXT CONST name): 
Fugt ein Atom mit dem Namen "name" in die Objektliste ein. Wenn ein solches 
Atom bereits existiert, wird stattdessen eine Fehlermeldung ausgegeben. 

PROC delete atom (SYM CONST atom): 
Streicht das Atom "atom" aus der Objektliste. 

PROC begin property list dump (SYM CONST atom): 
Vorbereitung fur "next property". 
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PROC next property (SYM VAR property id, property): 
Liefert die n^chste Eigenschaft aus der Eigenschaftsliste des zuletzt durch 
"begin property list dump" vorbereiteten Atoms. Wenn es sich bei der Eigen- 
schaft um eine Flagge handelt, wird "property" auf "NIL" gesetzt; wenn es keine 
nSchste Eigenschaft mehr gibt, werden "property" und "property id" auf "NIL" 
gesetzt. 

Der Dump der Eigenschaftsliste beeintrSchtigt die "Verwendbarkeit" des Atoms in 
keiner Weise: es ist wdhrend des Dumps sogar mdglich. Eigenschaften und 
Flaggen zu lesen. Wenn wShrend des Dumps Eigenschaften oder Flaggen gean- 
dert Oder geschrieben werden, ist mit tehlerhaften Dumpergebnissen zu rechnen. 

PROC add property (SYM CONST atom, property id, property): 

"property id" muB ein benanntes Atom sein. Fuhrt eine neue Eigenschaft mit der 
Bezeichnung "property id" und dem Wert "property" ein. Wenn bereits eine 
Eigenschaft mit der gleichen Bezeichnung exisliert, wird die alte Version ut)er- 
deckt. ist aber weiter vorhanden. 

PROC alter property (SYM CONST atom, property id, property): 
Bringt die Eigenschaft mit der Bezeichnung "property id" auf den neuen Wert 
"property". Wenn eine Eigenschaft mit dieser Bezeichnung noch nicht existiert, 
wird eine Fehlermeldung ausgegeben. 

BOOL PROC property exists (SYM CONST atom, property id): 
Pruft. Ob das Atom eine Eigenschaft mit der Bezeichnung "property id" besitzt. 

SYM PROC property (SYM CONST atom, property id): 
Liefert den Wert der gerade sichtbaren Eigenschaft des Atoms, die die Bezeich- 
nung "property id" hat. Falls die Eigenschaft nicht existiert, wird "NIL" geliefert. 

PROC delete property (SYM CONST atom, property id): 
LOscht den gerade sichtbaren Wert der Eigenschaft des Atoms, die die Bezeich- 
nung "property id" hat. Wenn eine aitere Version dieser Eigenschaft durch "add 
property" uberdeckt wurde, wird diese jetzt wieder sichtbar. Jede Eigenschaft 
bildet also fur jedes Atom einen Stapel (Stack). 

PROC add flag (SYM CONST atom, flag id): 
Das Atom "atom" erhSIt die Flagge "flag id". Ein Atom kann dieselt)e Flagge 
durchaus mehrmals haben. 

BOOL PROC flag (SYM CONST atom, flag id): 
Pruft, Ob "atom" mindestens eine Flagge "flag id" hat. 
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PROC delete flag (SYM CONST atom, flag id): 
L6scht eine Flagge "flag id" von "atom". Wenn keine Flagge existiert, wird 
nichts getan. 

SYM PROC sym (TEXT CONST text): 
Konvertiert "text" in ein unbenanntes Atom und liefert einen Zeiger auf dies 
Atom. 

TEXT PROC text (SYM CONST sym): 

Konvertiert "sym" in einen TEXT zuruck, wenn es sich um einen konvertierten 
TEXT handelt; wenn nicht, wird eine Fehlermeldung ausgeget)en. 

BOOL PROC is text (SYM CONST sym): 
Pruft, Ob "sym" ein konvertierter TEXT ist. 

SYM PROC sym character (TEXT CONST text): 

"text" muB genau ein Zeichen enthalten. Das Zeichen wird in ein 
CHARACTER - Objekt im Heap konvertiert und ein Zeiger auf dies Objekt gelie- 
fert. 

INT PROC character (SYM CONST sym): 

"sym" muB auf ein CHARACTER - Objekt zeigen. Geliefert wird der Code des 
dort gespeicherten Zeichens. 

SYM PROC sym (INT CONST i 1, i 2): 
Konvertiert "i 1" und "i 2" in ein unbenanntes Atom und liefert einen Zeiger 
darauf. 

INT PROC int 1 (SYM CONST sym): 

INT PROC int 2 (SYM CONST sym): 
Holt die Werte der ersten bzw. zweiten Ganzzahl aus "sym", wenn es sich um 
ein konvertiertes INT-Paar handelt; wenn nicht, wird eine Fehlermeldung ausge- 
geben. 

BOOL PROC is int pair (SYM CONST sym): 
Pruft, Ob "sym" ein konvertiertes INT-Paar ist. 



Prozedurubergrelfende Aussagen uber das Paket "lisp.1": 
- Es gibt benannte und unbenannte Atome. 
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- Die unbenannten Atome sind Konversionsprodukte. 

- Vor dem ersten Aufruf von "delete atom" sind alle benannten Atome in der Ob- 
jektliste enthalten; d.h. sie konnen alle durch "begin oblist dump" und wiederhol- 
ten Aufruf von "next atom" erreicht werden. 

- Jedes benannte Atom hat genau einen Namen, der immer gleich bleibt. Der 
Name ist als Eigenschaft mit der Bezeichnung "pname" in der Eigenschaftsliste 
gespeichert. "add property", "alter property" und "delete property" geben des- 
halb eine Fehlermeldung aus, statt ihre normalen Aktionen durchzufuhren, wenn 
ihnen als Eigenscfiaftsbezeichnung "pname" ubergeben wird. 

- Es gibt keine zwei Atome, die denselben Namen haben; dadurch reduziert sich 
die bei "eq" angegebene Fallunterscheidung auf einen Fall. 

- Es kann durchaus zwei unbenannte Atome mit gleichen Werten geben, die" von 
"eq" nicht als gleich anerkannt werden, well sie in verschiedenen Strukturen 
gespeichert sind. "equal" achtet nicht auf die Position, sondern auf die Werte 
der zu vergleichenden Strukturen. 

- Mehrfache Zugriffe auf die gleiche Eigenschaft desselben Atoms werden so opti- 
miert, daB die Eigenschaftsliste nur beim ersten Zugriff (meist durch "property 
exists") durchsucht werden muB. 
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4.2 Weitere Funktionen sowie Eingabe und 
Ausgabe 

Die Datel "lisp.2'' enthAlt diverse Pakete, die die Verbindung vom LISP -System zur 
normalen EUMEL-Umgebung bilden. Momentan sind das Ein- und Ausgabe und 
(exemplarisch) die funf Grundrechenarten fur Ganzzahlen. 

Die EIn- und Ausgabe von LISP - Strukturen wird durch das Paket namens "lisp io" 
mit den folgenden Prozeduren ermOglicht: 

PHOC get (FILE VAR f, SYM VAR sym): 
Nach dem Aufruf zeigt "sym" auf eine neue aus "f" eingelesene Struktur. 
In der ersten und hinter der letzten Zeile des S-Ausdrucks durfen kelne weiteren 
Daten stehen. 

PHOC get ail (FILE VAR f, SYM VAR sym): 
Wie "get (FILE V, SYM V)", nur da6 die Datel nichts als den S-Ausdruck ent- 
halten darf. 

PROC get (SYM VAR sym): 
Es wird mit "get all" ein S-Audruck von einer Scratch - Date! eingelesen, die 
dem Benutzer vorher zum Editieren angeboten wird. Bei Einlesefehlern wird die 
Datel zu Korrigieren angeboten, bis keine Fehler mehr auftreten. 

PRCX: put (FILE VAR f, SYM CONST sym): 
Wenn "sym" ein Ganzzahlpaar 1st, wird die erste Zahl ausgegeben; wenn es ein 
konvertierter TEXT ist, wird der ursprungliche TEXT wieder ausgegeben; bei 
einem benannten Atom Oder einer allgemeinen LISP - Struktur wird ein S-Aus- 
druck ausgegeben. 

PROC put (SYM CONST sym): 
Wie "put (FILE V, SYM CONST), auBer daB die Augabe direkt auf den Blldschirm 
erfolgt. 



Das Paket "lisp int" enthait die Prozeduren 

SYM PROC sum (SYM CONST summandenliste); 
Erwartet eine Liste von "int pair" - Summanden und liefert deren Summe. 



LISP-Handbuch 
49 



SYM PROC difference (SYM CONST minuend, subtrahend): 
Liefert die Differenz der Parameter. 

SYM PROC product (SYM CONST faktorenliste): 
Liefert das Produkt der Listenelemente. 

SYM PROC quotient (SYM CONST dividend, divisor): 
Liefert den Quotienten der Parameter. 

SYM PROC remainder (SYM CONST dividend, divisor): 
Liefert den Rest. 
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4.3 Interpreter 

Die Datei "lisp.S" enthdit das Paket "lisp interpreter", das die Prozedur 

SYM PROC evalquote (SYM CONST expression) 

exportiert. Es handelt sich dabei urn den im EUMEL- LISP- Handbuch beschriebe- 
nen Interpreter. 

Wenn "expression" ein LISP - Ausdruck ist, liefert die Prozedur den Wert des Aus- 
drucks (vorausgesetzt. der LISP -Heap ist vorbereitet, siehe lisp.1). 

Wirkungsweise: 

"evalquote" ruft im Wesentlichen die Prozedur "eval" auf. 

"eval" erwartet als Argumente einen solchen LISP - Ausdruck wie "evalquote", ben6- 
tigt aber zus^tzlich eine sog. Bindeliste. In einer Bindeliste sind durch LAMBDA- und 
LABEL - Ausdrucke bereits gebundene Variable und ihre Werte gespeichert. Die 
Manipulation der Bindeliste ist durch eine Reihe von Refinements, die am SchluS des 
Pakets stehen, realisiert. 

Da bisher noch keine LAMBDA- oder LABEL - Ausdrucke verarbeitet wurden, uber- 
gibt "evalquote" die leere Bindeliste. 

Wirkungsweise von 

SYM PROC eval (SYM CONST expression, association list): 

"eval" kann als erstes Argument ein Atom oder eine zusammengesetzte Struktur 
erhalten. 

Atome werden als Variable aufgefaBt, deren Wert in der Bindeliste aufzusuchen ist. 
Vor der Konsultation der Bindeliste wird allerdings noch nach der Eigenschaft APVAL 
des Atoms gesehen; wenn sie vorhanden ist, handelt es sich um eine Konstante wie 
NIL, T Oder F, die einen festen Wert hat, ndmlich den Wert dieser Eigenschaft. Da 
diese Konstanten sich selbst als Wert haben, gilt "eval (NIL, Bindeliste) = NIL" 
(entsprechend fur "T" und "F"). 

Wenn das erste Arugment von "eval" zusammengesetzt ist, wird angenommen, daB 
es sich um einen Funktionsaufruf der Form 



LISP-Handbuch 
51 



+ + 

I o I o — + — > Argumentliste 
+ — + — + + 



Funktion 



handelt. Die Bestandteile "Funktion" und "Argumentliste" werden mit der Bindeliste 
ubergeben an: 

SYM PROC apply (SYM CONST function, arguments, association list): 

"apply" hat die Aufgabe, die Argumente durch "eval" berechnen zu lassen (das 
unterbleibt allerdings unter tDestimmten Umstdnden) und die Berechnungergebnisse an 
die Parameter der Funktion zu binden; zum SchluB mu6 der Wert des Funktions- 
rumpfs in Abh&ngigkeit von diesen neuen Bindungen als Ergebnis der gesamten 
Prozedur "apply" berechnet werden; diese Berechnung geschieht wieder durch 
"eval". 



Nur in einem LAMBDA - Ausdruck ist direkt bekannt, wo die Parameterliste steht.So- 
lange das nicht der Fall ist. muB entweder ein LABEL - Ausdruck Oder ein Atom 
vorliegen. 

Ein LABEL - Ausdruck hat die Form 



+ + + + + + + + + 

I 0 I 0— >| o I 0— +— >| o I NIL I 
+ — + — + + + — + — + + + — + — + + 

I I I 

V V V 

LABEL Name Funktion 



Da der Name fur die Dauer der Auswertung des Funktionsrumpfs an die Funktion 
gebunden sein muB, wird dis Paar als funktionaler Bindelisteneintrag gespeichert. 
Funktionale und nichtfunktionale Bindelisteneintr^ge sind eindeutig unterschieden. 

Nach dem Abspeichern wird wieder getestet, ob die Funktion diesmal ein 
LAMBDA -Ausdruck ist; wenn nicht, wird ein weiterer Schritt zum "Abiattern" von 
LABELS und Atomen versucht, usw. 



Wenn die Funktion ein Atom ist, werden analog zu den Vorg^ngen in "eval" erst die 
Eigenschaftsliste und dann die Bindeliste durchsucht. 
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1st die Eigenschaft FUNCTION In der Eigenschaftsliste vorhanden, ist der Wert der 
Eigenschaft die (evtl. weiter "abzubldtternde") Funktion; ist die Eigenschaft nicht 
vorhanden, muB das Atom an eine Funktion gebunden sein, die dann aus der Binde- 
liste geholt werden kann. 

Da alle Funktionen (auch die Standardfunktionen) letztendlich als LAMBDA -Aus- 
drucke definiert sind, kommt "apply" auf diese Weise zuletzt zu einem LAMBDA - 
Ausdruck. 



Ein LAMBDA- Ausdruck hat die Form 



+ + + + + + + + + 

I 0 I 0-+— >| 0 I 0-+— >| I I 
+ — + — + + + — + — + + + + + 

I I 
V V 
LAMBDA Parameterliste 



Als nachster Schritt werden die Argumente fur die zu berechnende Funktion an die 
Parameter der Parameterliste gebunden, d.h. es werden Parameter - Argument - Paare 
in die Bindeliste eingetragen. 

Die Methode des Eintrags ist je nach Art des Parameters unterschiedlich. Es gibt die 
folgenden Arten von Parametern: 



I 

V 

Name 



"Name" ist hier - wie bei den restlichen FAIIen - der Name des Parame- 
ters. Diese Art von Parametern ist der Normalfall; die Argumente. die einem 
solchen Parameter entsprechen, werden durch "eval" berechnet und zusammen 
mit dem Parameter in einem Bindelisteneintrag gespeichert. 

2. I 



-»■ + + + + + 

I 0 I 0— +— >| 0 I NIL + 
+ — + — + + + — + — + + 

I I 
V V 
QUOTE Name 
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In diesem Fall wird das Argument ohne weitere Verarbeitung in die Bindeliste 
ubernommen. Die Wirkung ist die gleiche, als wdre das Argument durch 
"(QUOTE ... )" eingesch lessen. 



I 
I 

V 

+ + + + -f + 

I 0 I 0— +— >| o I NIL I 

+ — + — + + + — + — + + 

I I 
V V 
FUNCTION Name 



Hier wird ein funktionaler Bindelistenemtrag erzeugt, so daB "Name" im Funk- 
tionsrumpf als Name einer Funktion auftreten kann. 



V 

+ + + + + + 

I o I 0— >| o I NIL I 
+ — + — + + + — + — + + 

I I 

V V 

INDEFINITE Name 



Dies ist ein Parameter, der beliebig viele berechnete Argumente aufnehmen 
kann. Der Einfachheit halber werden die Ergebnisse zu einer Liste zusammen- 
gefaBt und mit "Name" in einen Bindelisteneintrag gesteckt. 



I 
I 

V 

+ + + + + + + + + 

I 0 I 0— +— >| o I o— +— >| 0 I NIL I 

+ — + — + + + — + — + + + — + — + + 

I I I 

V V V 

INDEFINITE QUOTE Name 
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Dieser Parameter kann wie der in Fall 4. aufgefuhrte beliebig viele Argumente 
aufnehmen, die zu einer Liste zusammengefaBt werden. Im Gegensatz zu 4. 
wird aber wie bei 2. nichts durch "eval" berechnet, sondern die Argumente so 
wie sie vorkommen ubernommen. 

Auf einen Parameter der Form 4. Oder 5. dart kein weiterer Parameter folgen, weil 
solch ein Parameter alle restlichen Argumente verbraucht. Solchen Parametern darf - 
als Ausnahme - auch kein Argument entsprechen; dann werden sie an die leere 
Liste (d.h. NIL) gebunden. 

Der letzte Kasten in der Beschreibung des LAMBDA- Ausdrucks ist mit Absicht leer 
geblietDen; er kann eine der Formen 

+ + + + + + 

I o I NIL I Oder | Ganzzahl | XXXXXXXX | 
+ — + — + + + + + 



Funktionsrumpf 
annehmen. 

Die erste Form heiBt, daB die Funktion durch Berechnung des Funktionsrumpfs mittels 
"evar berechnet werden soil; die zweite Form bewirkt den Aufruf einer der Standard- 
funktionen, je nachdem, welche Funktionsnummer bei "Ganzzahl" steht. In diesem 
zweiten Fall werden die Argumente aber nicht durch den Namen des Parameters 
identifiziert, sondern durch die Position des Eintrags in der Bindeliste. Dieser Pro- 
grammteil h^ngt also wesentlich von der Reihenfolge ab. in der die Bindelisteneintrd- 
ge, die bei der Parameter - Argument - Zuordnung entstehen, in die Bindeliste einge- 
fugt werden. Zur Zeit ist das die Umkehrung der Reihenfolge der Parameter. 

Die Namen der Refinements "arg 1", "arg 2", "arg 3" beziehen sich auch nicht auf 
die Position des Arguments in der Argumentsliste. sondern auf die Position des 
Eintrags in der Bindeliste. 
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4.4 Kommandoprozeduren 

Die Datei '•lisp.4" enthftlt eine Reihe von Prozeduren, mit denen der LISP - Interpre- 
ter dhniich wie der ELAN - Compiler aufgerufen werden kann. 

Die Prozedur 

start lisp system 

ermdglicht das erneute Starten des LISP -Systems, Oder wenn "ubersetzte" Pro- 
gramme, die in einem Heap einer anderen Task liegen, in dieser Task verarbeitet 
werden sollen. 

Die Prozedur 

lisp 

stent die LISP-Maschine in einem Doppelfenster im Bildschirmdialog zur Verfugung. 
Bei der erstmaligen Benutzung muB die Datei "lisp.bootstrap" vorhanden sein. 

Die Prozedur 

break lisp 

koppelt die LISP -Task vom Benutzer- Terminal ab und baut das Doppelfenster fur 
den Bildschirmdialog neu auf. 

Die Prozedur 

run lisp 

bewirkt, daB ein LISP - Programm eingelesen und ausgefuhrt wird; nach der Ausfuh- 
rung wird das Ergebnis der Berechnung ausgegeben. Diese Operationen werden auf 
einer Kopie des Heaps ausgefuhrt. so daB Anderungen keine Dauerwirkung haben. 
Mit 

run lisp again 

wird das zuletzt eingelesene Programm noch einmal gestartet; da dafur die gleiche 
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Kopie des Heaps wie bei "run" benutzt wird. kann das Ergebnis diesmai anders sein. 
insert lisp 

wirkt wie "run lisp", auBer daB diesmai alle Anderungen. die durch das Einlesen und 
Ausfuhren im Heap entstehen, dauerhaft sind. 



PROC start lisp system (DATASPACE CONST heap): 
Eine Kopie von "heap" wird der neue LISP -Heap. Wenn es sich um "nilspa- 
ce" handelt, werden einige organ isatorische Strukturen im Heap aufgebaut und 
die Atome "NIL" und "PNAME" erzeugt. 

PROC start lisp system (DATASPACE CONST heap, FILE VAR f): 
Zun^chst wird "start lisp system (heap)" gegeben. 

Danach werden die Eigenschaftsbeschreibungen aus "f" in Strukturen im Heap 
umgesetzt. 

Jede Beschreibung in "f" muB mit dem Zeilenanfang beginnen und kann sich 
uber mehrere Zeilen erstrecken. Jede Beschreibung besteht aus den Elementen 

<Atom> <Eigenschaft> <Wert> 
wobei <Eigenschaft> der Name einer Eigenschatt (i.a. APVAL Oder FUNCTION) 
und <Wert> ein beliebiger S-Ausdruck sein mussen. Die drei Elemente mus- 
sen jeweils durch mindestens ein Leerzeichen getrennt sein. 

Wenn das Atom <Atom> nicht existiert, wird es erzeugt; danach wird <Wert> 
unter < Eigenschatt > in der Eigenschaftsliste eingetragen. 

Wenn < Eigenschatt > NIL ist, muB <Wert> wegtallen; dann wird nichts in die 
Eigenschattsliste eingetragen. 

DATASPACE PROC lisp heap: 
Liefert den LISP -Heap. Das ist manchmal tur Sicherheitskopien etc. nutzlich. 
Die durch "run lisp" erzeugten Kopien sind nicht zugdnglich. 

PROC run lisp: 
Rutt "run lisp (last param)" aut. 
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PROC run lisp (TEXT CONST file name): 
Das in der Datei "file name" stehende LISP - Programm (d.h. der dort stehende 
in einen S-Ausdruck ubersetzte M-Ausdruck) wird in eine neue Kopie des 
LISP -Heaps eingelesen und ausgefuhrt. Evtl. vorher durch "run lisp" erzeugte 
Kopien des Heaps werden vorher gelOscht. 

Wenn das Programm syntaktisch nicht korrekt ist. wird es im Paralleleditor zur 
Korrektur angeboten. 

PROC run lisp again: 
Fuhrt das zuletzt eingelesene Programm noch einmal im gleichen Heap aus. 

PROC insert lisp: 
Ruft "insert lisp (last param)" auf. 

PROC insert lisp (TEXT CONST file name): 
Wirkt wie "run lisp (file name)", nur daB alle Operationen auf dem Originalheap 
ausgefuhrt werden. Auch "run lisp again" wirkt nun nicht mehr auf der Kopie. 



